home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 65
/
065.d81
/
basic 4 boot
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
2KB
|
49 lines
100 poke53281,0:poke53280,0:print"[147][158]";
110 c$="12121515010115151212":cc=-1
120 fori=1to12:print"[169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][155][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223]";:next
130 fori=1to12:print"[152][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][151][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169]";:next
140 print"[152][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][151][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169]"
150 poke2023,peek(1083):poke56295,peek(56255)
160 fori=217to242:pokei,peek(i)or128:next
170 poke214,5:print:fori=1to10:printtab(4)"[221][152] [146][158][221]"
180 next:poke214,6:poke211,4:sys58732
190 print"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
200 printtab(5)"[155][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][158]"
210 poke214,16:poke211,4:sys58732
220 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
230 printtab(5)"[145][145][151][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][158]":poke214,8:print
240 a$="[194][160][193][160][211][160][201][160][195] 4":gosub300
250 a$="by [210]ick [206]ash":gosub300
260 a$="[208][213][194][204][201][211][200][197][196][160][207][206][160][204][207][193][196][211][212][193][210][160]#65":gosub300
270 a$="[211][213][194][211][195][210][201][208][212][201][207][206][211] 1-800-831-2694":gosub300
280 a$="([195]) 1989 [211]oftdisk":gosub300
290 goto310
300 printspc(20-len(a$)/2)"[152]"a$:return
310 gosub510
330 poke214,19:poke211,4:sys58732
340 print"1. [211][197][197][160][194][193][211][201][195][160]4 [196][197][205][207]
345 [153]"2. (NULL)(NULL)atnstr$closepeekatn(NULL)right$lenclose4
350 print"3. [208][210][201][206][212][160][194][193][211][201][195][160]4 [205][193][206][213][193][204]
360 [153]"4. (NULL)val(NULL)(NULL)(NULL)(NULL)close(NULL)(NULL)close(NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)
370 print""
380 geta$:ifa$<"1"ora$>"4"then380
381 c=1024+(18+val(a$))*40+5:fori=ctoc+30:pokei,peek(i)-128:next
382 ifa$="1"ora$="2"thengosub530:ify$="n"then310
390 onval(a$)goto400,410,420,430
400 f$="basic 4 demo":goto440
410 f$="basic 4":goto440
420 f$="manual maker":goto440
430 f$="hello connect":goto440
440 open15,8,15,"r0:"+f$+"="+f$:input#15,er:close15
450 ifer<>63thenend
460 print"[147][144]load"chr$(34)f$chr$(34)",8"
470 poke631,13:poke632,82:poke633,213:poke634,13:poke198,4:end
510 poke214,18:sys58732:fori=1to6
520 print"[159] ":next:print"":return
530 gosub510:poke214,18:print:printtab(10)"[207]nce run, this option"
540 printtab(8)"won't return to [204][207][193][196][211][212][193][210]."
550 printtab(13)"[195]ontinue? ([217]/[206])"
560 gety$:ify$<>"y"andy$<>"n"then560
570 return
10000 open15,8,15,"s0:basic 4 boot":save"basic 4 boot",8:end